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CHINOS 

90 

t O ■' * t ** * * 1 ** i. D S C H1N O 9 * * * % * * * ü * % % 
20 ' ***** Feo J «FU azquez— GTS <c) *** 
3 O '** * ****** ***4 1985 ******* * 4 * * *** * 


40 

SYMBOI. 

AFTFR 200 


50 

S Y. MR ni . 

255,24,60,i 26,255,0 

,0 ,0 

00 

SYMBOÍ 

254 ,0 .0 ,0 ,0,3 26,90 , 

126,60 

70 

SYMBni. 

253,24,255,255,189, 

i 53,0,0, 

80 

SYMBOL 

252,0,0,0,0,0,60,36 

,0 

90 

SYMBOL 

251. ,0,0,0 ,.0 ,0,1.29 ,0 

, 231 


j 00 INK O , O : BORDER O : INK 1 ,24 s INK 2,20 s I Ml< 3,6 
1.1.0 MODE 1 : PAPER 2 5 O. S 

120 WTNDOW # 1 ,2,39,1.5,24 sPAPER #i ,O 5 CL..S # 1 
130 WINDOW #2,2,39,2 , Í.2 :PAPER #2,0:CLS #2 

140 PAPER ?sPEN 3 «LOCATE 2,14sPRINT " LOS CHINOS— GTS (c) -Fco.-J.Rl AZ 
OUEZ " 

150 GOSIJR 490 

1.60 I..ET U:----T NT ( < C 1 0*RMD ( 1) ) + <RND (?.) ) + ÍRND (3) ) ) /3) 

1 70 |. ET o-l = TMT í ( (1 O*RND <t ) i + (RND <21 1 + (RND <3) > ) /3) 

1 80 ■'? a—í.t+ot 

■1.90 PE I NT #1 sPFN #1 ,3 5lNPl.IT #1 CUANTOS CHINOS O AS A SACAR " ;nrj 

2 O O IF T N T < n c J ) > 3 O P J M T i n t:j ) < O T H E N G O T O 19 O 

210 PRINT #i«PEN #1 ,2 SPRINT #1," La apuesta del AMSTRAD es "$aa 
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220 RRXNT M I sPEN #3. , -3. ; IMPUT #i APUESTA "saj 

230 IF I .NT (a j ) >6 GR INTíajXO THEN GOTO 220 

240 P'FT'i #1,2 SPRINT #1. sPRTNT #3," LA APUESTA DEL AMSTRAD ES "sai. 

250 PRM #1,1 sPPINT #t SPRINT #1 TU APUESTA ES " jaj 

260 PEN #3. ,3;PRTNT #3 sPRINT #t," PULSA TECLA M sWHIl.E IN!<["Vi 

= " " *WEND sOí, S Si 

270 PRTMT #1 sPEN #1,1 SPRINT #1 TU HAS SACADO " ;ncj Y EL. AMSTRAD" ; 
" 5 " POR TANTO Fi RES! II TfiD 

O ES " ;u.+ncj 

2 8 O T E a a =■- 1 i+n c j T I-i E N t a=t a +1 ? F O R m = 1 T O 1.5 O O S T F P 10 O s S 011 N n A , m .. i o . j 4 t 

MEX T ' ' 

290 TE a j=u+oc j THEN tj=tj+3:F0R m=20O0 TQ 500 STFP-1 OO »SOI¡¡ND 4 . m . t o 1 
4 sNFXT . ’ 

300 PRTMT #1 sPEN #1,2 SPRINT #1. , " PUNTUACION AMSTRAD " $ta 

3:1° PRTMT #3 sPEN #3,.3 sPRTMT #3. , " PUNTUACION TUYA " ¡;t i 

320 GOSUB 350 

330 PEN #1,3; PRTMT #1; PRTMT if). , " PULSA TECI A" sWHTI E I MEE Yú~ " 11 s 

WEND 

340-a s #•) jCI.S #2;GOTO 160 
350 | El «t «sr>f. j 
360 PRIMT CHE*(22) 

370 LOCATE 4,4 sPEN 3 sPRINT "TUS CHINOS:" 

380 TOCATE 6,6: PEN 2 sPRJMT SIRINGA (at ,CHR# (255) ) 

390 L OCATE 6,6 s PEN 1 s PRI NT STRI NG* ( a t , CHR* ( 254) > 

•400 I.. OCATE 6,7 s PEN 3 5 PR ! NT STR T NG* ( 3 1 , CHE* ( 253) > 

41.0 I...OCATE 6,7 ;PPM 2 sPRINT STRING* (at ,CHE* (252) ) 

4?0 I. OCATE 6 ,7 5 PEN 1 5 PRI NT STR I NG* <at , CHE* (251.3 ) 

430 PEN O si. OCATF 3,12 sPRTMT CHR*(22) ,1 sPEN 1 
440 LFT at.-u 

450 I..OCATE 28,4 sPEN 2; PAPER O: PRTMT "SUS CHINOS s " 

460 PRTMT CHRSÍ72) sLOCATE 32,6sPEN 7¡PRIMT STETNG*Cat,CHR$(255 )) si OCAT 
F 37 ,6 s PEN 1. s PRINT STR T l\|G* í at , CHR* (2 54) ) s L.OC AT E 32,7 s PFN 3 5 P R T MT STR T N 
G* (at ,CHE* (253) '> 

470 I ORATE 32 ,7 sPEN 2:PRTMT STRTNG* (at ,CHR* (252) 3 sLOCATE 3? ,7 sPEN J. ¡¡.PR 

I NT STR T MR* I s f , CHR* (25 3 3 ) s PEN 2 s PAPER 7 s LOCATE .1 ,1.3 s PR T NT CHE* c 72 3 , 1í -P 

EN 1 i¡PAPE R a ¡RF. 11, IRM 

480 ROSMR 580 sFOR k = 3 TO 3 45 

490 REAH nn 

500 ENO 3,1 ,1 ,3 O 

510 SOUND 3 ,r»o.,6,34 

520 SCUJND 2 ,110*7,6, ! 4 

530 MFXT 


^i40 DATA 84,84,84 ,84 ,84 ,84 ,84 ,84 ,84,84 , 95 , 95 , 95 , 95 , 1 06, 1 06, 1 06 1 06, 1 06 
, 1 06 , 1 0-6 , 1 06 ,1 1 3,3 13,11 3 , t .1 3,1.27,1 77,3 27,1 27, 1 27, 1 27 , .1 27,127 ■ j 27 , 1,27 , i 
27, 80 , 80 , 80 , 80 , 80 , 80 , 80 , 80 , 80 , 84 , 84,84 , 84 .. 95 , 95 95 ,95,1 06 , 1 06 ,1. 06 , 1 06 , 
, 95, 85 ,95 «O 80 ,, 80,84 ,84,84 ,84,04,84 ,84 ,84 
550 DATA ('¡,0,0 

560 DATA 80 ,80,80,80,80,80,80,80,84,84,84,95, 95 ,95,95, 95 ,95,95,80,80,8 


, I 77„1: 


7 , .1 1 3 


O 5 84,84 ,84 ,84 ,84,84 ,84,1 06,3 06,3 06 ,3 27 , J 77 , j 27,3 27 ' 177,1. 2' 

1 :l 1 3,11 3,84 ,84,84,95 ,95 ,95,3 06 , % 06,106,11 3,113,11.3,106,106 \ 1 06 \ 1 27 11 27 
, i 27,1 27,1 27,1.77,1 27 , i 77,3 37,1 77, 127 ,3 27,127 


1987 - AMIGOS DEL AMSTRAD - 5 





570 CI...S *7 s RETURW 

580 PR TNT CHE* ( 7.2) ; t COATE 3,6; PEN 2 ;F'R I NT STRI NG* (36 ,CHE# (255 n s I .OCATE 
3, 6 ; PEN 1 ; PE I NT STR I NG* ( 36 , CHE* < 254 ) ) • L OCATE 3,7; PEN 3 : PRI NT STRIMG* ( 
36 ,CHE* (253) ) st..OCATE 3,7 sPEN 2 :PR INT STRING* (36 , CHE* ( 252) ) ;I .OCATE 3,7 ; 
PEN .1 ; PR T NT RTRTNG# 036 ,CHR* (251 > ) ;PEN 2 
590 I .OCATE t , 13 sPRTNT C!~IR$ <22) , 1 ;PEN 1 

600 LOCATE 14,4» PFN 3; PAPER O ; PEÍ NT " LOS CHINOS “ ¡RETI. JEN 
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LOTO 

t o ' X X X X X X * * * * * X #*#* * X X X * X * * * * * X * * X A * * 

20 '* ! niFRTA PRIMITIVA * 

30 ' * Fro . j - B J 9.7 que:-' -.— QTS < c '> — ’ 85 * 

4 O ' * X X X X % % X X X x * X * X x X xx * * * X X X t X * X X * X X X 

50 MCDF 1 { JNk' O ,O sBURDER o s TNK 1 ,26:1NK 2,20 :1NK 3 ,6 

60 LOCATE in;2sRFN 1 sPRTNT "LOTFRTA PRIMITIVA " jl. COATE 9,3:PEN 3rPRINf 

•BTR J-MR-át í i 9 , ) 

70 FOR a~l Tfl 360 STFP 3 sDFG sORIGTIM 64,260:PLOT 50XSIN (a) ,50XC0S..ía> ,3 
ORTBTN 3 92,260 s Pl DT 50XSINU) ,50XC03ía> , 3 : ORIRIN 320 ,260sPLOT SOXS.ÍNfa 
) ,50XDOS(a) 5 3:ORIGIN 448,260;PLOT 50X31N<a) ,50XC0S<ai ,3:OR161W 576,260 
sPLOT 50X3IÑ ía) ,00Xeos(a) ,3 

8 O O R T RI N 3 20,1 4 O : P1.0 T 5 O X 3IN (a i , 3 O X C O S i a ) , 3 
90 ORTRTkl 448,.1.40 s PLOT 50XSIN(a> ,50XC03U") ,2:NFXT 

100 FOR a-1. TO 5 sREAD pn sLOCATE nn ,9 :PAPER O ;PEN 1 sLET u~ I NT í í 50XRND ( 1 
>0+11 sPRTNT usSÜUND 2 ,uX 10,1 5 sNEXT 

.1 1 O I. OCA ÍF 1 9,17 S PFM 1 Si. FT T NT ( (50XRND (1 ) > +1 ) s PR I NT u. : ROUND 2 , uX 1 O , 1 

5 

1 20 DATA 3 , .1 1 ,19,27 ,35 

130 l OCATE 2,21 :PEN 1 ;PR JNT "Pulsa <a> para otra combinación . " sPR.IMT « 
PRJNT " Pulsa < 7 . > para elegir otro numero si alguna esta repetido,, 

li 

140 IF TMk'FV ¡'691 -O TREN SOTO 170 
J 50 IF T. ÑKEY (73 } =-0 TI-IEN GOSUB 180 
160 ROTO 140 

170 ROUND 1 ',200 ,20 :CI FAR ¡GOTO 100 

1 80 I OCATF 27 ;i 7 vl.ET U =TNT ( (5ÓXRND <1 ) i +1 ) s PR T NT u : " " s BOU NÚ 2,10 Xu , 10 : 
RETI IRN 
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EMESIS 



REPRESENTACIONES 


1 o '# t # *#*% % % 11 % % % % % RFRRESEMTAOT ONES #* 6TS,<c> **#* * Frc o . J . B1 azque 
# * # * ## * 

2 0 0 LEAR s ' I N I C I Al .1 7 A 0 J 0N C 0 MPl.E T A 
30 MOnE 2 s TNK t ,26sTNK 0,0sBORDER O 
40 GOTO 570 

50 OI.S sPRTNT jPRINT sPRTNT s.TNPl IT " > Nombre ele la función a repr^sent ar 


" JC«* 

60 PRI NT s PR T NT a Pp T NT ¡ .1NPIJT 


I n t rod Lie e 


7 0 P R í N T £ P RI N T • T N P LIT 11 
SO PR T NT sPR T NT 5 T NPIJT " 
90 PR 7 NT s PR T NT s T NPIJT " 
i 00 PR T NT > PR I NT ; T |\IP! IT 
I 1 0 PR T NT 5 PR TNT 5 T N‘P! IT 
1 2 O P R T M r « p R T N T ■ TN PI. .1T 
1 3 0 pR I NT 5PRTNT í TNP1 1 T 
i 40 PR T NT s PR T NT í 1 NP|.IT 
.1 50 PR T NT E PR T NT T i\|P¡ IT 
j é 0 P R T N T s P R í N T : I Ñ PIJ T 
1 70 PR T NT sPRTNT s I NPIJT 
I 80 PR T N T s PR I NT ? T NPIJT 
1 90 PR T NT 5 PRTNT t PRT NT 


Introduce 
Introduce 
Intreduce 
I nt rotíuce 
Tn troduce 
In+reduce 
Int.rodil' e 
Introduce 
Intraduce 
Tn troduce 
Int roduce 
Introduce 


va 1 ar 
valar 
va I or 
va I or 
va 5 or 
va 1 or 
va ] or 
va 1 or 
va I or 
va I or 
va 1 or 
va 1 or 


Nai¬ 
de 
d e 
d e 


i ¡no Valor 
Enero > " 
Febrero > 
Marzo > " 


de 
de 
de 
ele 
de 
d e 

r| fa 

de 

de 


Ahr i I 
M a m o i 
Jufiio■ 

Jl .i j ;l o > 11 3 
Agosto > " 
Sepfiombre 
Octubre > 


> ; m v 

se 
" s-f 
; m 
" ?a 

5<ny 

S J 

" 3 J i 
" ;ag 

"55 

5 o 


Noviembre 

p i c i tambre 
Pulsa <f> para 


•' " 5n 
> ";d.ic 

ver gráfica 


para rertif¡.car 


Pulsa <r; 
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2 O O IF T N K E Y í 5 O) = O T H EIM G O T O 5 O 
230 IF TMKEY(53)—0 THFN GOTO 230 
220 GOTO 200 

230 I ET e~ 7 NT ( í I RüHte) /iiw) 

24o I.. ET í - T NT i. (1 90 * * ) / m v) 

200 LE'T m=TNT( ( J ROÜtm) /inv) 

260 I...ET a—IKITÍ (1.80^.3 1 / mv 1 
270 I FT iTty=: TNT ( ( 1. ROüímu ) /mv) 

2Sü I ET _i= f NT ( (' 1 8Oí- j 1 /mv ) 

290 | FT j i - T NT < ¡. l 80* j 1 /mv) ) 

300 I..ET ag--TM"r( (1 80Ütag/mv) ) 

31 O LE. ! T i\¡T f ( i 80 * /m v ) ) 

3 2 O I E T 13 = T N T í (.1 8 O * o / m v 1 ) 

330 I. .FT n=TNT( (13(")*n / m v) ) 

340 I FT rl í c:=INT ( ( 1 80*0 ¡ c/mv) ) 

350 CLS 

360 FOR I k = 1. TO 5:0RIGJN 5+1 k ,5+1 k sDRAW O ,369 ■ ORIGIl\l 5+U ,5+U sDRAW 60 
0,0sNEXT 

3 /<) l OCA f E 5 ,12;F'R JNT " Ene Feb Abr* May Ji.m Ju I. Ac¡ S 

ept. Ort Nov D i c:" 

380 I OCA TE' 7? ,2 sPRTNT ROUND (mv, 2) si.OCATE 72,7:PRTNT ROUND (mv/? ,21 «I..OCA 
TE 72,13 sPRTNT ío s LOCATE 72,18 sPRTNT ROUND(-mv/?,2) si. OCATF 72,24 sPRJMT 
ROUND(-mv ,2) 

390 LOCATE -84 , .1 sPRTNT " r " 5 cg$ s " 

400 FOR ha 1 ro 570 STEP 3.3sORTRTN 20+h ,200 sPLOT O ,0 sNFXT 

410 FOR k — 1 TO 550 8TEP 3.3sORTGTN 20 +k,380;Pl OT o'osORTGIN 20+k ,?90sP 

I....OT O , O 5 OR T G r M 20+k , 13.0 sPL OT O , O s OR T GIN '20+k ,20 s PL OT O , O s Nlí X T 

420 FOR d=0 TO e STEPíe/10) sFOR h=l TO 35 STFP OsGRTGIM 40+b,200 sDRAW 

O 5 rl sNFXTsNEXT 

4 3 O F O R rl a O T n f 8 T E P ( f / 1. O) ; F O R h=1 T O 3 5 S T E P ? ; 0 RI R [ N 85+h , 2 O O ? H R A W 

O ,d sNEXT s-NFXT 

440 FOR ri=0 TO m RTFRím/IO)sFOR b=l TQ 35 STFP 2sORISIN 130+b,200sDRAW 
O,rlsNEXTsNFXT 

450 FOR rl a o 70 a STEP(a/10) sFOR b = 1 TO 35 STEP 2 s-GRIGIN 1.75+b ,200 sDRAW 
O ,d sMEXT sNEXT 

460 FOR rl=O TO n ím STFP í m y /1 01 s FOR ' b -■ 1 TO 35 STFP ? S 0RT8TN 220+b ,200 :DR 
AW O ,’d sNEXT sNEXT ' 

470 EOF r 1=0 TO j STEP (j /1.01 sFOR b=1 TQ 35 ñ'TFp PsORISIN 265+b , 200; DRAUI 
O,dsNEXTsNFXT 

480 FOR d~0 TO jJ STFPíji /1 oí sEGR b=l TO 35 STEP 2sORTGÍN 310+b,200sDR 
AW O jd sNEXT slfjFXT 

4 9o F0 R d a o To a g 8T F P (a g /1 01 s FO R b =1. TO 35 ST EP 2 s O RIGIN 355+b , 2 O O s OR 

AW O ,rí sNEXT sNEXT 

500 FOR ri-0 TO s STFP («a/1.0) sFQR fc¡= 1 TO 35 STFP 2 sORTGTN 400+b ,200 sDRAW 
O,dsNEXTsNFXT 

•510 FOR d=0 TO o STEP (o/3 O) sFOR b-1 TQ 35 STEP 2sORIGTN 445+b ,200?0RAW 
O,dsNEXTsNEXT 

520 POR ríao TO n STEPín/tO) iPOR b=3 TO 35 STEP 2sORIGIN 490+b,200sDRAW 
O,dsNEXTsNEXT 
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530 F0R d =ó T P dic STEP (d i c / 'J 0) ; FÜR b = l T0 35 STEP 2sORIQIN 535+b ,200: 
D R A W O , d ; N F X T »|\l F X T 

5 4 o L O C A T F ? O , 4 * P R T M T " P 1 . 11 .. SA < E > PARA O T RA RE PR ES E N TACION '' 

550 JE T Nk"FY (58 V¿T) THEN GOTO 3.0 
560 BOTO 550 

570 OES SPR INT sPRTNT SPRINT " R E P R F S F N T A O 



5Po. PR.fiMl] sRRTNt " La •final idad de este programa es la 'represe 

nf;arr:¡.nn g,raf ira de 

cua 1quier tab1 a de valares , 

Su "forma es anua] pera' se puede emplear " 

590 PRTNT ?PRTNT " sin tener en cuenta esta predisposición del proa 

rema La rep r-e sen t ar- :¡ on 1 ' 

600 PRTNT ?PRTNT es por medio de barras mensuales ,con una. 

esc a 1 ai cgomparát i va 

para poder apreciar no sb 

Jo él via'lor relativo de cada barra respecto" 

610. PRTNT üPRTNT " a 1 as otras, sino también ' su valor real . 


Introduce los datos según te 

los vaya pidiendo el ordenador " 

620 PRTNTsPRTNT¡PRTNT¡PRTNT " PULSA TECLA <S> PARA 

EMPEZAR " 

630 PRTNT:PRTNT 11 ============»=====«=!==! FCO „.J .BLAZ0UEZ— 1985 — G T S 

640 IF TNKFYÍ60)=0 THEN BOTO 50 
650 GOTO 640 



( 











RANCHO 


1 o '**** * * * RANCHO RAO J OACT T VQ t * * * # * * * 

20 ' ** Feo „J „B.l asquez -1985- BTS <c) #Jfc 
30 ' * * * * 111 **** * ******************** * * * 

40 MfiriF 1 t T Nk' O , O s BORDER O s T NK 1,26? INI-:' 2 r .R?TNk' 3,6 

5 O >¡ - 2 2 ; y 1.2 s e & - 5 ; n o - 2 5 

60 ñYM'PO!. AFTFR 200 

70 SYMROI 200,0,0,0,8,28,255,28 

80 SYMROL 201,24,60,36,60,J02,102,255,231 

90 S YMROI 202 ,60,1 02 ,66,231 ,1.89,1 89,36,231 

1 00 S Y MR OI.. 203 ,60 , ¡ 26 ,255 ,255 ,255,1 26 

11.0 SYMROI.. 204,0,8,32^4,64 

1 20 S Y KROL. 205 ,0,0,0 ,0,0,24 ,24,24 

1 30 S Y MR01.. 255 i 36,36 ,36,36,36,36,36,36 

140 SYMROI 254,0,8,1 O ,78,104,46,24,255 

.1.50 9 YMROI.. 253 ,0 ,37,34 ,33,1 79,182 ,252 ,255 

1 60 í-;ií ! I (.1 66 ( i 

170 C! 8 

180 I. OCATE 1 ,?2¡PEN 1 sPR JNT STR T N3$ í 40 , CHR* (200 5 > 

190 FOR n=22 TO 5 STFP 1 sLOCATE 1 ,n tPRINT C'HR* ( 255) sLOCATjE 40 ,n sPRINT 

CHR* (255) sNEXT 

2O O LGCATF 1 ,5 5 PEN 1 ;P RIMT STR1NB* ( 4O,CHR £ <2O O)) s 

210 FOR rl-3 TO 6 sREAD a st.OCATE 3 2,12 sPRINT CHR*(22) sPEN 2 si OCATE 3,asP 
RTNT STRINS* < 40,CHR* ( 203)) i LOCATE 1 ,a;PEN 3 sPRINT STRINB*(40,CHR*{2041 
1 s I... OCATF 1 , a s PFN 3. ; PR T NT STR I IMG* (40 , CHR* < 205 ) ) : NEXT :¡ L OCATE .1 2 ,1 2 sPAPER 
O s P E N O • P R T N T C H R *¡'22) ,1 ; P E N 1 
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2:?0 PATA ?3,24,i ,2,3,4 
230 FOR Cj-j rn lOOsORTGIN 
RAU! O , 8 ,0 sNFXT *FOR c= I TO 100 OR T GIN 
80+ (r /5) ,352 5ORAW O ,Í6 :NEXT 
240 FOR H = i. m 60 s OR IGIN 230+d , 379 s ORAW 


240+r,352:ORAW O,25,1 sORTGIN 253+(c/8),36Í 


:P 


315+(c/&) ,362sORAW O,8,0; ORIG TN 


O 


O , (d/5i ,3sNFXT 


(d/5),3: 


2+ < INT (40* (RNO (1) ) )') ,6+ (I NT (1.7* (RND (1)) ) ) sPE 
2+ (INT (40* (RNO (1.) ) ) > ,6+ (INT í 1 7* (RNO (].))) > ;PE 


W 

250 FOR w= 1 TO 17 si.OCATE 
N 2 :: P R J N T C H R £ ( 254 ) ; l\| E X "I" 

26O FOR was 1. To 14-|.OCATE 
N 3 ; P R T N T C H R * (253) s N E X T 
270 'FOFRY 100,1 GOSUB 400 

280 L OCATE 3 ,:? sPEN 3 : PR T NT " RESCATADOS : " s LOCATE 6,4 ; PR T NT 
OCATE 26,2: PR T NT " Oi IENTA ATRAS s" s I. .OCATE 31 ,4: PR I NT '• " ? b. 

I OCATE 3 ,23 s PEN 3 : PR I NT •' ESCAFANDRAS ; " • es 5 " " 


OR IGIN 350-rl , 379 ; ORA 


; r - 


si 


290 
300 
31 O 
320 
330 
' 340 
PR T NT 
350 IF 
360 
370 
380 
390 
400 
4 :l O 
480 


l. .OCATE 22,23 :PEN 3 ;PRTNT " EN EL SIJEL O s •' 5 s . < 


I OCATE 18,4;PR T NT " 

I ncATE 8,25; PEN 2?PRINT 
GOSUB 590 
LOCATE x ,u ¡CAI i 


(c) 


"Feo . J ,Blazquez~:i 985-- G'T'S 
mü 19 s PEN 1 : PR I NT CHE* (202) s LOCATE * , y s CAI. 


S/B019S 


T F 
TF 
T F 


I MKE Y (69) s#0 
TNKP'Y (71 ) -O 
TNkRY(30)-O 
! WKE Y (291 O 


y=y 


+ 1 


THEN y-y—1 
TI-lp'N 
TREN 
TREN 

ORIGTN O , O 

TF MOT TESTí(16* (x-1)) ,400-í16*y))=< 
LET nr=nr.1 sPEN 3sLOCATE 31,4sPRINT 


-x ~ 1. 
+1 


THEN GOSUB 51.0 
" snr ¡¡ " " :IF nr-0 TREN GOSUB 


420 IF x<?. THEN v-7 

430 TF >39 THEN x=39 

440 IF y¿6 THEN y=6 

450 TF y>21 TREN "y“21 

460 IF <=. > 19 OR es<3 TREN 540 

470 GOTO 340 

480 L..FT nr=J6sLET s-=s+1 ¡PEN 3:LOCATE 34,23 sPRINT " "¡;sj" " ;PEN 1 ¡I..OCAT 
E 2+ (INT (40* (RND (I Un ,6+ ( T NT (.1 7* (RNO (1)5) 5 sPRINT CHES i 201 ) sRETI.JRN 
490 LET r»r+1. sPEN 3 ; LOCATE 6,4 sPRINT " " ;r 5" " sLET b~b-3 sPEN 3 s LOCATE 
34,23_ t PRTNT » '• ;b;" " sRFTljRN 

500 LEI es~es.1 sPEN 3; LOCATE' .15,23 sPRINT " "jes;" " s SOI INO 4.1 000 ,? '1 5 5 

RÉTI.iRN 

5 i O IF TESTÍ (1 6* í x —1 ) ) ,400-d6*y) )=t TREN GOSUB 490 
520 IF MOT TEST( (16*(x-1 ) ) ,400-(1 6 *y) )=1 THEN GOSUB 500 
530 RFT( IRN 

540 WINOOW # 1 ,2,39,6,21 s O!. S # 1 :: PAPER O 5 PEN .1 ; PR T NT # 1. 5 PR T NT # j - PR J NT W 

1 sPRINT #1," I A RAO.IOACTTyIDAD HA CONTAMINADO TU RANCHO. 

,, HUYE'I'" 


550 PRINT #1 SPRINT sPRINT #1 sPRINT #1," MIRA LOS MARCADORES Y PEE 
PARATE PARA OTRO I 

NTENTO." 

560 FOR ab-0 TO 35 STEP 2 si' OTATE 4+eb , !8 sPRINT CHP*7??> ¡"PEN 2 si OCATE 4 
+el:, , 1 8 s PR I NT CHR* í 203 3 s I OCATE 4+ab , 18 s PEN 3 s PR I NT CHE* (204 ) s I. OCATE 4+» 
b , 1 8 5PEN l sPRINT CHR* (905) sNEXT sLOCATE 12,12 ¡PAPER O sPFN O sPRINT C|~IR* ( 

23; ,1sPFM 1 
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570 
580 
40 
590 
600 
610 
620 
¿¡30 


F0R ab=0 T0 35;PEN 1 sLOCATF A+^tb ,20sPRINT 
OLEAR sRESTORF 630 sBOSI IB 590 sCt.EAR jRESTQRF 


CHRí(200 j ;NE X T 
630 sBOSUB 590 ;C! FAR 


ROTO 


FOR 

EWV 

FNT 


K = 1 


TO 1 1.0 :REAn no 
•I 5 - : 5 I , ( ) , 5 , 1 5 r — 1 , 4 
1 , 100 51 ,2 

SOI. IND i , n o * 1 . 5,17,1 4 » IME X T 
DATA 3 ,t9,319,21 9 ,284 ,284,284 
90,1 90,1 90 ,213 5 7.1.3,2 i 3 ,739 ,239,1 

, 284 ,284,253,253,753 ,2.1.3,213,21.3,213 ,21.3,190,1.90,19-:' 
39 ,239 ,284,7R4 ,284 , 784,284 ,784 ,319,3 1 9 ,31 9 


I ,■ 


M 


~ c; .ncn cr -i • 

y 1J .£ y • TO y .¿. ' • 

19,1 59 , i 59,1 59,1 59 


8,21 3,71 3,21.3,7 
9,3 í 9,31 9,31 9 
21.3,21 3 


'13,' 


>84 ,284 ,. 753 


■> r- '••j '-i i": - 

• • y 


3 ,2 13,21 3,21: 


.> 1 8 ' 


1 3 .. 1 90 , 


680 

690 


19,1 1 

53 . 


19,1 ‘ 
53 . 


1 90 
19,1 f 


640 DATA 

53,753 - 753 ,3 1 9,3 1. 9 ,31. 9,319,31.9 ,319,1 59,1 59,1 
, 2 1 3 , 2 i 3,1 90,1 90,1.90,319 ,31 9 ,3 1 9 ,284 ,284,784 , 

650 RFTIJRN 

660 Cl S sl.OCATF 1 ,24;PFM 1 sPRINT STRINBt (40 ,CHRá5 (200.) ) *FDR 

FP. 1 sl.OCATF. 1 ,n sPRINT OIR* (255) 5 i OCATF 40,n sPRINT CHR$(25 C 

F 1,2: PEM 1 ;PRI NT STRTNB*<40,CHRí(200 ) > 

670 |..'OCATE 12,6 ;PFM 1 sPRTMt "RANCHO RADIOACTIVO" 
l OCATE 1 1 ,8 ; PEN 3 s PR I NT STR T N0f (19, CHR£ (701 ) ) 

WINDOW #6,2,39,10,24sPEN # 6 ,1 

E SALVAR TU RANCHO DE 
LLUVIA DE NI SU. FS MQRTAI ES 
SOI O DISPONES DE 5 ESCAFANDRAS 


■ V •- 

1 90 


■ - ’¡ ■ 
1 90 


1 3 , i 
,284 

39.7 

13.7 
. 1 90 


3,253,253 


r|=24 TO 
1) sNEXTsl. 


2 ST 
OCAT 


700 

PR I NT 

#6 " . 

7 > — . 

TRATA DI 




L..A 

7 1 0 

PR I NT 

#6sPRINT 

46 , " 

770 

PR T NT 

#6 ¡i PR T NT 

#6sPRINT 


#6 


MANDO? 



1. A1.Sub:i id 

1 Z i.P 

a j ar 

C / "I.Dprpcha 



r v "i J ? d a 
730 PEN 3 s! OCATE 1 ,25 sPRINT • 
740 TE INKEY(58)-O THFN GOTO 
750 (BOTO 740 


RUI ,SA 


para empezar 


1.70 
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L'x'x’-d Fx'x.':-! ft-x'-x-d Ti-x-x-d Px':'x'J Ex : x¥d k-Xwd Px-;'x-d £&■•¥& j-j 

F5?3 E?g3 E%%5 P^3 E%?3 E%%3 T&3& E??5 


SINTETIZADOR 


I O ' ******* * * t * t .9 I NTFTI 7 ADOR ******** 

20 '**** GTS (r) FCO..T.BLAZQÜE7 **** 

30 '************** 1985 ************** 

40 MODE .1 s T NK O , O : BORDER 3 : INK 2 ,26 s INK 1 ,2:1NK 3,3; PAPER 3 s CLS 
50 S Y MR ni ,. AFTER 140 

60 sYMEO. 143,O,28,62,255,62,28,O,O 
70 LET d =8?v=15 

80 LOCATE 2,25?PEN 2s PAPER 3 sPRTNT " RTS (c) -1985-Fco.U.Blazquer 

II 

90 WINOOW #1,29,39,1,12:PAPER #1,OsCLS #1 

100 GOBUB 510 s LOCATE 4,1;PFN 1 ; PAPER 3sPRTNT " p R M F 8 I. S B R M F" 
s P A P E R 2 s S P F E D K F. Y I , 1 

110 PFN #1 ,2 sPRTNT #1 sPRTNT #1 ," DURACION? " ;tl SPRINT #1 VOLUMEN: 

" gvsPRTNT #1. :PFN #1 ,1 sPRINT #1," PULSA <q> " sPRTNT #1 PARA 

CAMRIO" 


1 20 

TF 

TNKFY(71)«0 

THEN 

BOSIJB 

330 

130 

ON 

BREAK GORME 

¡ nr. 

¡90 


1 40 

T F 

TNk'EY (63 ) =0 

THFM 

GOSUB 

340 

150 

T F 

TNkEY(67)»0 

THEN 

GOBUB 

600 

1 60 

T F 

TMKFY(62)=0 

THFM 

GOSUB 

350 

170 

TF 

TNKFY(55)=0 

THFM 

GOSUB 

360 

1.80 

TF 

TMKFY(54)—0 

THEN 

GOSUB 

370 
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3 90 

IF 

TNk'FY (46) =0 

THEN 

GOSUB 

380 

200 

J'F 

TNKEY (38.) =0 

THFM 

GOSIJB 

390 

210 

IF 

TNKEY(39)=0 

THEN 

GOSUB 

400 

220 

T F 

TNk'FY (33.) =0 

THEN 

GOSÜB 

4 3.0 

230 

IF 

TNk'FY (30) ¡*0 

THEN 

GOSUB 

420 

240 

T F 

TNk'FY (22) =0 

THEN 

GOSUB 

430 

250 

T F 

TNK'FY (60) =0 

THEN 

GOSIJB 

440 

260 

IF 

TNKEY(Al)=0 

THFN 

GOSUB 

450 

270 

T F 

TNK'FY (52) =0 

THFM 

GOSUB 

460 

280 

TF 

TNKEY(44)=0 

THFN 

GOSUB 

470 

290 

IF 

TNk'FY (45) =0 

THFN 

GOSUB 

4R0 

300 

TF 

TNKEY(36)=0 

THFN 

GOSIJB 

490 

310 

TF 

TNk'FY (29) =0 

THEN 

GOSUB 

500 


320 GO'rn 120 

3 3 o l O C A T F 5,12 a P E N 3 ; P RIM T C H R T í 3 4 3) ; L O C A T E 3 ,2 3 ; P E N 1 ; P RIN T O H E $ ( 1 . 4 3 
) «ROUND 1 , 478 „d,v 5 LOCATE 5,12«PEN 1 «PRTNT CHRT(343) «LOCATE 3,23 sPRINT 
" "«RETURN 

3 4 O L O C A T E 7,1 1. s P E N 3 s P R J N T C H R T í 1 4 3 > «L O C A T E 7,2 3 : P E N 3 s P R T N T O H R * (1 4 3 
) s SOtJND I , 426 , d , v s LOCATE 7,31 : PEN 3 : PRI NT CHR* (143) s I .OCATE 7 ,23 «PR T NT 
" " «RETIIRN 

35O I. nC aTE 9,1 O s PFN 3 s PRINT CHRT (343) • LOCATE 1 O ,23; PEN 1 «PR T MT CHPT (1 4 
3) sSOtJND 3 ,379 , ri , y s LOCATE 9,3 O s PEN 1 ; PR I NT CHRt (1.433 s!. OCATE 3 O , 73 s PR T N 

7 ■■ H ¡ RETURW 

360 I OCATE 3.3,9; PEN 3 s PR T NT CHRT ( 3.43) ; LOCATE 1.4 ,23 ? PEN 3. :PR I NT CHRT í 1 4 
3) ? ROUND 3 ,358 , d , v s LOCATE 1 1 ,9 :: PEN .1 s PR J NT CHRT < 143> s!.. OCATE 14 ,23 s PR X N 
T " "sRETIJRN 

370 LOCATE 13 . R - PEN 3 «PRINT CHRT (143) «I.. OCATE 17,23 «PEN 3 «PRTNT CHRT í 1 4 
3 > «SOI IND 1. , 8 3 9, d , v «I OCATE 3 3 , R «PEN t «PRNT CHRT ( 1.43 3 s LOCATE 1 7,23 s PR IN 
T » "sRETIJRN 

380 I OCATE 15,7s PEN 3 «PRINT CHRT (.143) «LOCATE 20 ,23 «PEN 3 «PRTNT CHRT í 3 4 
3) s SOI .IND 3 ,284 , d , y «|„ OCATE 3 5,7 «PEN 1 «PR I NT CHRT (3 43 i «I. ORATE 20 ,, 23 s PR % N 
T " " sRETIJRN 

39 O i... OC A T F 1 7,6 s PF N 3 «PRIN T CHR T (1.4 3) : L OC A T E 24,23 s P E N 1 j P R T N T C H R T ( 1 .4 
3) s SOIJND 3. , 253 , d , v s LOCATE 1.7 , A «PEN 1 «PR INT CHRT (3 43) «l. OCATE 24,23 ?PR IN 
T " " sRETIJRN 

400 1. OCATE 1 9.5 ; PEN 3 «PRTNT CHRT (143) «LOCATE 27 ,23 :PEN 1. sPRTNT CHRT (1 4 
3 > i! SOIJND 3. , 239 , d , v si. OCATE 1 9 ,5 ; PEN 3 «PR I NT CHRT (1 48) ; i. OCATE' 27,23 «PR IN 
"i" ». " sRETIJRN 

41.0 I. OCATE 21 ,4 ¡PEN 3 r,PRINT CHRT (143) «LOCATE 33 ,23 sPEN 1 sPRINT CHRT (1 4 
3) «SOt IND 1 ,213, d , v s I. OCATE 21,4;PEN .1 sPRI NT CHRT (3.43) sI. OCATE 31 ,23 sPRIN 
T " " sRETIJRN 

420 LOCATE 23,3 s PEN 3 « PR T NT CHRT (3 43) «LOCATE 34,23 s PEN 1 ; PRI NT CHRT í 1.4 

3 3 sSOtJND 3. , 1.90 , ri , v «L OCATE 23,3 sPEN 3 sPRINT CHRT < 1 43i ;LOCATE: 34,23 :PR IN 
T " "sRETIJRN 

4 3 O 1.0 C A T E 2 5,2 s P E N 3 ; P RIN T C H R T (1 4 3) «L O C A T E 38,23 s P E N 1 s P RIN T C H R T ( 1 4 
3) «SOIJND 1. , 179 , ri , v «l. OCATE 25,2 sPEN 3 s PR I NT CHRT (3 43) sLOCATE 38,23 «PR T N 
T " "s RETIIRN 

440 PAPER O • L. OCATE 5,19« PEN 3. s PR I NT CHRT í 3 43) s SOI IND 1 ,45 3 , c! , v s L OCATE. 5 
, 3 9;PR T NT " "sPAPER 2 sRETURN 

450 PAPER OsLOCATE 9,19;PEN 1;PRINT CHRT(143) sSOUND 1,402,d,vsLOCATE 9 
5 1.9 s PR I NT " " «PAPER 2 s RETURN 
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460 PAPER 0?LOCATE 15,19 sPEN 1 SPRINT CHRf- f 1 43) :SOUND 
15,19 ¡: RRI NT " " ; PAPER 2 : EETURN 

470 PAPER O:LOCATE 19,19sPEN 1 sPRJNT CHRí(143) sSOUND 
19,19sPR T NT " " s PAPER 2 sRETURN 

480 PAPER O si. OCATE 22,19sPFN 1. sPRJNT CHRTÍ143) sBOÜMD 
22, .19 SPRINT " " : PAPER 2 s RETI JRN 

4 9 O P A P F R O : I... O 8 A T E 2 9,19sPEN 1. sP RIN T C H R $ (143) s S O l J N D 
29 , X 9 s PR I NT 11 " * PAPER 2 «RETI JRN 

5 O O P A P E P O sl.O C A T E 3.? ,19; P E N X ; P RINT C H R $ (143) :S O (J N O 
32 , :l 9 ; PR I NT " » ■ PAPER 2 j RETI JRN 

51. ó POR t=20 TO 620 sORIGIN t ,20s0RAW O , 1.70,2 sNEXT 
520 ORI (31N 20 ,20 s DRAW 600,0 ,0 ; DRAWR O , 170 s DRAWR -600 


1 ,338,d,v sLOCATE 
1,301 ,d ,vsLOCATE 
1,268 ,d ,vsLOCATE 
t,225,d,v;LOCATE 
1 ,201,d,v 5LOCATE 

O s D R AWR O, — 170 


530 FOR t=?0 TO 620 STEP 54,5sORTGTN t,20sDRAW O,170,0 ;NFXT 
540 POR da=l TO 7 sREAD st sFOR -f=-5 TO 25 sORIGIN 20+( (<st *54 „5)-10)+f ,80 
s DRAW O , 1.1 O . O ; NEXT ? NEXT 
550 DATA 1 ,2 ,4,5,6,8,9 

560 FOR w=s248 TO 380 STEP 32 sORIGIN 40, w: DRAW 380,0,2: NE XT 
570 FOR r-t-l TO 11 sLOCATE 3+ (2*rt) , 13-rt sPAPER 2sPEN 1 SPRINT CHR*<143> 
sNEXT 

580 RFTURN 

59O SPEFD KFY 2 O ,1 sFND 

600 SPEED KEY 20,1 sCI.S #1 sPRTNT #1 sINPtJT # 1 ," Duración" sdsPRTNT #1 sIF 
d<O OR d >200 THEN GOTO 600 

610 INPL.IT #1," Oolumen" ;v:IF v<0 OR v>15 THEN GOTO 610 
620 PR I NT CHR$<7) sCLB #í sPEN #1,2 SPRINT #1 sPRJNT #1. DURACION; " 5 

d sPRTNT #1 VOLLJMFN; "sv ;PRINT #1 sPEN #t ,1 sPRJNT #1," PULSA <q) 

"SPRINT PARA CAMBIO" :RETURN 
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VÚvsA Iys'yA f-:-yA'íi Vl-vA/A IvAAi Iy-y-A \vs»A VyyyyA. VAv/Á VvyaA 
Jfty-A fyJyÁA V/AyA E#¿&J Vy/'A/A VAAAyA VyA-'yA AyyyA VAyyAA VZ, 


QUINIELAS 


w 


* * Ü * X * *• * 


0 W¥iaí?,í,lS»HiíHIil,*****fS?í J-BLA7BUEZ- RTS <e)- 


70 

30 


Cl 8 ; T NK 
PEN 3 ¡LOCATE 1 „3 .PPIIMT 


0 ,0 


TNK 1 ,21 :1NK 3,6;BORDER O -J NK 2,13 ; PAPER O 


QUINTELAS 


4 u PR .1. NI I sf-'PTNT üPRTMTsPEN 2sPRINT " Este? programa esta ideado pao a da 
o combinaciones aleatorias de apuestas simples,Se ha tratado de 
conseguir una probabilidad similar a ]a real(suerte?) " 
bu PRÍNTüPRTNT 11 El programa cuenta con una doble opcion ,dos tipos de 
panta 11 a segun su gusto: 

( 1) Expertos (2) - Aficionados 

60 PPM 1 üPRINTüPRTNT "PULSE EL NUMERO DESEADO y SUERTE! 1 ! 1 " 

70 IF TNK’EY (64) =0 THEN GOTO 320 
80 .TE TNKEY (65) =0 THEN GOTO 100 
90 GOTO 70 

100 'i*##*#######*#### 1X2 ¡le##*####*##### 

310 MODE 1 ?TNK 0 ,0;T NK 1 ,9;1NK 2,26:1NK 3,20sBORDER 0 
120 GQSLJB 300 
130 LET n =j 

140 W TNDOW #1 ,25,28,5,18 

1 50 Ul T NDOW #2,9,28 ,5,18 - PAPER # 1 ,0 s CL. S # 1 
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j 60 f. OCA'TF' 1 5,1 ? PAPER 0 s PEN 2 ;F'R I NT "QIJINI ELA " sLOCATE 1 4 , ? ; PAPFR O ; pFN 
:i ¡ F'R I NT STR T MR* (1 0 
170 an-1 NT(10 1 (RMD(1))) 

180 IF ap>=0 AND apí'7 THEN ap$="i" 

190 IF ap=7 OR ap—8 THEN api—"X" 

200 TF ap=9 THEN apá>="2" 

21 O PAPER #2 ,0 s PEN #2 ,2 s PRI NT #2 , " Part i do n s " ; n ? " . " 

220 PAPER #1,0 s PFN #1 ,3 sPRTNT #]," "¡¡api 
? 3 O n - n +1. -1F > 14 T H E N 6 O SUR 250 
240 pirro 1.70 

250 LOCATE 2,23: PAPER Os PEN 3 sPRTNT " P1JI. SA TECLA <0> PARA OTRA O) ¡INTE 
I A " s 

260 LOCATE 1,25 ¡PAPER O; PEN 3 sPRINT " PLII.SA TECLA <C> PARA 00! VER A! M 
ENU" 

270 IF TMk'EY (670 =0 THEN ROTO 20 

280 TF .TNIí'EY (34.) =0 TWFN GOTO 100 

290 GOTO 270 

300 ORJBTN 1 10,95 sDRAW O ,265,1. sORAWR 340,0:DRAWR O , ■•-•765 sDRAWR -340,0 
310 RFTIJRM 

320 '******* QUINIELAS Al. AZAR ** t * * * * * 

330 MODF 1 ; INK O , .1.1.'!! s BORDER .1.3 s T NK 1 ,3 s I Nl< 2 „ O j I Ni< 3,0 

340 PEN 3 : PAPER O : LOCATE 4 ,5 s PR I NT "Feo „ j „E¡I az quez (1.9851 (c ) " 

350 LOCATE 4,4sPRTNT" QUINIELAS AL AZAR GIS" 

360 FOR -f —9 TO 22 sl.OCATE 15,-fsPEN 1 sPRINT "1X21X21X21X21X21X21X21X2" 

370 LOCATE 4,f:PEN 3sPRINT "apuesta "sNEXT 

380 FOR g=l TO 14 ¡LOCATE 1.1. ,g+8 sF'EN 3 sPRINT g sNEXT 

390 FOR 1-9 TO 22: FOR u=15 TO 36 STEP 6 sl.OCATE u,f :PEN Os PAPER :l sPRTNT 
"1X2"sNEXT u sNEXT 

40 O L OC A TE 1 5 ,23s PRINT " 1 " L OC A T E 21,2 3 s PRINT " 3 " sLOC A TE 27 ,23 s PRI 
NT " 5 LOCATE 33,23sPRINT " 7 " 

41 O I.OCATE 18,23sPEN 1 ?PAPER O sPRINT" 2 "sLOCATE 24,23:PRTNT " 4 "sLOC 
ATE 30,23 SPRINT " 6 "sLOCATE 36,23sPRINT " 8 " 

420 FOR k«224 TO 608 STEP 16sORIGIN k,47:DRAW 0,224,1sNEXT 

430 FOR k—47 TO 771 STEP 16sORIGIN 224,k sDRAW 384,0,1 sNEXT 

44O 0RIBIN 38,48 sDRAW 57O ,O , 1 sDRAWR O ,-16 sDRAWR -57O ,O ;¡DRAWR O , 1 6 

450 ORIG T N 38,96 s DRAW 570,0,1 

460 ORIGIN 38,144 sDRAW 570,Ó,1 

4- 7 o ri R T G T N 3 8,2 O 8 s D R A W 5 7 O , O , 1 , 

4 8 O O RIGIN 4,2 O s D R A W 618,0,2: D R A W R O , 3 5 O : D R A UJ R - 618,0 s D R A W R O , - 3 5 O 

4 9 O O RIGIN 2 O , 3 6 O sD R A W 584,0 : D R A W R O , - 5 8 :: D R A W R -584,0 :: D R A W R O 5 8 s O RIG 3' 

N 440,36O D R A W O , - 5 8 
500 LOCATE 1,1 sPRINT CHRí(27) 

510 LET ap= INT (i O* <RMD (. 1 > ) ) 

520 FOR j —9 TO 22 

530 LET ap- J NT ( 1. o* < RMD (1) ) ) 

540 IF ep>-0 AND ap<7 THEN LET px =o 
550 IF ap-7 OR ap-8 THEN I.ET px = t 
560 IF ap-9 THEN I.ET px--2 

57O I OCATE 1 5+n-f + p x ,.j ;pEN 3 sPRINT "X" sNEXT 
580 LOCATE 1 ,1 sPEN Os PAPER O sPRTNT CI-IRi (22) , 1 s 

590 I. OCATE I ,25 s PAPER Os PEN 3 sPRINT » <R>-— VUELTA MENU <C>-— Otra a. 

pi.uast.a " 
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6 O O T F IN K E Y (5 4) * O T l-l E N G O T 0 2 O 
610 JF TNKEY(62)=0 THFN GOTO 640 
620 GOTO 590 
63O CLEARsGOT0 33O 

640 n-f-rvf +3 ; IF rvf >23 THFN GOTO 630 
650 GOTO 500 
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DIBUJANDO 




1O 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
20 'XXXXXXXX DIBUJAR FR FAOTI XXXXXXXX* 


20 

30 

40 


XXXXXXXX D T BU JAR ER FAC TI... XXXXXXXX X 

7.V.7. Feo . J .BLA7QUEZ-. BTS (c) XX7.XX 

*X * X X*XXX*XXXXXXXXXXX X X X X X X X X X X X X XX 
50 MUDE 1 : T NK 1 .. 13 s T Nl< 2,2:1 NK 3,6 
60 TNK 0,0;BURDER 0s PAPER 0 
70 SOTO 970 

SO CL.S s W T NDOW # 1,1,40,1 ,20 : PAPER # 1 ,0 
90 WI NDOW #? , 1. ,40,21 ,25 sPAPER #2, 1 


1 1.0 PAPER 

1 sCI. R ;CLS #1 sCL 

_S . #2 

1 20 SOñIJB 

490 


130 = 320 

5 y*200 S ve ”2 


1 40 PAPER 

í:PEN 2 : LOCATE 

20,24 : F'R I NT "X ; W : LOCATE 28 , 24 ; PR I NT "Y : " 


s y 

150 1 P i Nk E. Y í : 0 ) ~Ü ! HEN '¡j^-y+ve 
160 IF INKEY (2) =0 TRIEN y=y-vc 
170 T F T NKEY( 8 )-Q THEN x~x - ve 
IB O IF INKEY (1 ) — O THEIM x—x+ ve 
i 9 O IF T N K F Y (3 4) 3 O T M E N v e = v c -1 
200 TF INKEY (60) =0 THEN SOSU.R 1130 
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.210 TI- TNKEY (36) -0 THEN BOSUB 1170 
220 TF TNKEYf27)=0 THEN vc=vc+l 
230 IF ve>20 TMFN ve=20 
2 4 O IF v r < 1 T H É N v t = 1. 

250 FOCATE 34,22sPAPER 1 :PFN 2 ; PRTNT ve 
260 IF TNKEY(64)=0 THEN BOSUB 520 
270 TF IIMk'EY (65) =0 THI-M GOSUB 610 
280 IF TNKEY(57)=0 THEN GOSUB 700 
290 TF T NIKE Y <56>=0 THEN GOSUB 800 
300 TF TNKEY (49)-••■O THEN GOSUB 900 
310 IF TNKEYí9)=0 THEN GOSUB 950 
320 IF TNKEY(411=0 THEN GOSUB 960 
330 TF TNKEY(48)=0 THEN GOSUB 940 
840 T F !NKFYí40)=0 THEN 1 = 1 ; GOSUB 490 
350 IF TNKEY(33)=0 THEN 1=2sGOSUB 490 
360 TF TNKEY (32) =0 THEN 1=3 ¡¡GOSUB 490 
37O l F T WKEY(25)«O THEN ]=0:60SUB 49O 
380 IF TNKEY(69)=0 THEN GOSUB 1120 
390 GOSUB 410 
400' GOTO 1 40 

41 O PRTNT #3 , CHR$(23) jCHE# í1) : 

420 ORTGTN «,y 

430 MOVER -8,0 : DRAWR 16,0,1 

440 MOVER -8(-8: DRAWR 0,16 

4 5 O F O R j = O T O 1 O s N E X T 

460 DRAWR 0,-16v MOVER 8,8 

4 ? O n R A w R -1 6 ,0 s M O V F R 8 ' O 

480 F’R INT #3 , CHE* (231 ; CHR* (O) sRFTURN 

490 CI.S #2 sPEN #2", 2 SPRINT #2sPRINT #2," X e Y FIJADOS : " jpp ; " , " ¡¡ p-f ¡¡ “ 

V„CURSOR s" 

500 PRTNT 42 : PRTNT #2," LAR 17 " si.OCATE 9,24:PEN 1 sPRINT CHRt (143) 

510 RFTURN 

520 CI.S #2 sPRINT #2: TNPUT #2, "En que guació empiezo " ;gi 
530 PRTNT ' #2 = TNPUT #2, "Fin que grado termino " ;gt 
540 TF g :¡ >gt GOTO 520 

550 PRTNT #2 ; TNPUT #2,. "Dame radio " ;r 
560 PRTNT #2s TNPUT #2, "Salto " 

570 TF s=0 THEN GOTO 560 

580 FOP p=c¡ i TO gt STEP ssDEGsORTGIN >;, y ;DRAW r*SIN (p) ,r*COS íp) , 1 sjNFXT 

590 GOSUB 490 
600 RFTURN 

610 CLS #2sPRINT 42; TNPUT #2 , "En que grado empiezo "sai 
620 PRTNT 42; TNPUT #2, "En que grado termino " ;gt. 

630 TF gi>gt GOTO 610 

640 PRTNT #2; TNPUT #2, "Dame radio ";r 
650 PRTNT 42; TNPUT 42, "Salto ";<=> 

660 l'F s=0 THEN GOTO 650 

670 FOR p=g :i TD gt STEP e :DEG ;ORIGIN x ,y sPLOT r*SIN(p) ,r*COS(p) ,1 :NEXt 
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680 GOSUB 490 
690 RETURN 

700 Cl.S #2 sPE I.NT #2 : TNPlJT #2 , "En que grado e<npiezo " ;gi 
71o PR X NT #2 INPUT #2, "En que grado termino 11 ¡¡gt 
720 IF gi >gt BOTO 700 

730 l”‘R T NT #2 s INRI IT #2 , "Dame radio 1 " ;rl 
740 PRJNT #2 sINPUT #2 , "Dame radio 2";r2 
750 PRINT #2 s T NPUT #2,"Salto ";s 
760 IF <3=0 THEN SOTO 750 

770 l-HR p=g.i TO gt STEP ssüEGsORIGIN x .... sPt.OT rl#SIN(p) ,r2*C0S(p) ,1 :NE 
XT 

790 GOSUB 490 . 

790 RETURN 

800 01 R 42: PEINT «2 siNPUT #2, "En que grado empiezo " ;gi 
810 PRTNT #2: INPI.IT #2, "En que grado termino " ¡¡gt 
820 IF gj >gt GOTO 800 

830 F’EINT #2 s I NPUT #2 , "Dame radio 1 " ;r 1 
040 PRTNT #2;!NPUT #2, "Dame radio 2";r2 
850 PRINT #2 rINPUT #2,"ña]to "?s 
860 TF <5-0 THEN GOTO 850 

870 FGR p-g i TQ gt STEP s:DES 5ORIRI'N x ,y sORAW rl#SIN(p) ,r2#C0S(p) . I sNE 

XT 

880 GOSUB 490 
890 RETURN 

900 CLS #2 SPRINT #2:1NPUT #2," LADO " ;b 

910 ORIGIM .(b/2) ,y-<b/2> sDRAWR b,0,¿ : DRAWR 0,b sDRAWR ~b ,0 sDRAWR 0,-b 

920 GOSUB 490 

930 RETURN 

940 CLS #1¡RETURN 

950 i. ET pp-x sLFT pf = y :GOSUB 490:RETURN 
9 6 O O RIGIM p p , p f :D R A W x - p p , y - p f , I s G O S U B 4 9 O : R E T U P N 
970 Cl.S s 

980 PEN 2 SPRINT " D I B U J A R ES FACIL 


y90 PRTNT sPRINT 5 PEN 1 sPRINT" Este programa sirve para dibujar de un 

m o do sene i 1 ] o y e n t r p t e n i. ri o „ C o n 
toio un poco de practica po 

d r a s d i i::) u j a r h a s t a '' 

1 OOO PRTNT " donde tu imaginación sea capaz de 

i legar , " 

1010 PRINT sPRINT " PULSA TECLA PARA SEGUIR " sWHTLF INIi'EYÍ--" 

"sWEND 

1020 PEN 3 SPRINT sPRINT¡PRINT » TECLAS FUNCION 


1 030 PEN 1 sPRINT " C 1.1 . . . . 

«. r .. »Ci re un f eren c i as 

1040 PRINT " C4I. 

...... .Cuadrarlos 11611 

................. .Traza 1 j.nea 

1050 PRINT " í 9 ü „„„„„„„„„ „ 


.......... .Circuios C211 ... . 

11311.. .Eli i pees vac i as" 

. .. , . .El ipses l lenas 1151 ......... . 

... . C1 s 1171 

C8] « ........ .Pen 1. (gris) " 

.... Pen 2(azul) COI .........« 


PY'l 


.Pen 3 (rojo) C~3. ... .Pen 0 (negro) ECO 

■.. .Fija el origen para la linea. 
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1 060 PRINT " r A1+GURS0R .. .Pi nt-.a ra u a 1103 . - . . ». 

. . . V .cursor IRl...+ V ¡cursor 

■j 070 PRINT:PRINT " Para borrar pinta encima con negro " 

JOPO PEN 3fPRINT:PRINT " PULSA CEO PARA EMPEZAR " 

1090 PEN t SPRINT SPRINT "X'ÁT/LX Feo , J . B1 az que? - GTS <d '85 V/.XXTl" 
J.1O0 TF TNKEY (581=0 THEN GOTO 80 
tilo Grrrn itoo 

I 120 GR IG ]■ N , y s PI. nr o , 0,1 s RETURN 

1130 CLS #2 sPRJNT #2 s INPIJT ' #2 , " DAME NOMBRE ";ní 

II 4 o s a KJ f" n $ ? ]0 5 r. O O O , i'y 4 O O O 
llfiO GOSUB 490* 

1160 RETURN 

1170 CLS #2 SPRINT #2sTNPlJT #2," DAME NOMBRE " ;n$ 

1180 LOAD n:í,?/C000 
1190 GOSUB 490 
1.200 RETURN 
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EJEMPLOS 


10 '************ EJEMPLOS *********** 

A ****** *** Fco.J.Blazouez - GTS (r) 

*****************)k 

20 MQDE 1 :1NK 1,26:INK 0,0:BOEDER OjINK 2 
30 ROTO 570 


****** DE AYUDA A LA REVIST 
- 85 * ***************** 

,2:1NK 3,18 


40 CLS :'******** EJEMPLO 
50 PRINT SPRINTsPRINT " 

60 wTÑfiow #27273976725 

70 F0R n=32 TO 255 


1 *********** 

JUEGO DE CARACTERES REDEFINIBLES 
_" : PRI IMT: PRI NT :PEN #2,3 


80 PRINT#2," ";CHRí(n) ; " " ; 
90 NEXT 


100 RETURN 

110 CLS:'********** EJEMPLO 2 

120 PEN 1 :LOCATE 20,7:PRINT CHP$(1 43) ;CHR*(143) :LOCATE 
NGí (4 ,CHR$ (143) ) : LOCATE 18,9:P.RINT STRING* (6 ,CHRí (143) ) 
RINT STRING*(8,CHR$(143)) 


19,8 SPRINT STRI 
: LOCATE 17,10:P 


130 POR n=ll TO 14;L0CATE 20,n:PRINT CHR$(143);CHR$(143):NEXT 

1.4u FOR m=0 10 128 STEF' 16:0RIGIN 254+m, 175 :DRÁW 0,128,2;0RIGIN 254,17 

5+msDRAW 12S,0,2:NEXT ' 

150 PEN 3:LOCATE 12,4:PRINT "CARACTER n: 240" 

160 LOCATE 27,11 «PEN 1 :PRINT "= ";CHRS(240) 

1.70 RETURN 
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180 CLS:'******* EJEMPLO 3 
190 PFN 1 

200 PEN 1 : LOCATE 10,7: PRI NT STRI NGí (2 , CHRÍ (143)) : LOCATE 9,8: F'P I NT STRI 
NG$ (4 ,CHR$ (143)) : LOCATE 8,9:PRINT STRING#( 6 ,CHR$(143)) : LOCATE 7,10:PRI 
NT STR I NGí(8,CHRÍ(143)) 

210 FOR n=1.1 TO 1 4 : LOCATE 10,n:PPINT CHRÍ (143) :CHR$ (143) :NEXT 
220 PEN 3:LOCATE 2,4íPRINT " CARACTER n: 240 NOTACION BINARIA 


230 FOR m=0 TO 128 STEP 16:0R1'GIN 94+m , 175 :DRAW O , 128,2 sORIGIN 94,175+ 
msDRAW 128,0,2:NEXT 

240 PEN 1 :FOR 1=7 TO 14:L0CATE 18,1:F'RINT " = ". :NEXT 

250 1*11IMDOW #1,23,30,7,15: PR I NT # 1 , " 0001100000 lili 00011111101 11.11 111000 
11000000110000001100000011000 " 

260 IF pop0=4 THEN GOTO 280 
270 RETI.IRN 

280 '********* EJEMPLO 4 

290 PEN 2: FOR 1=7 TO 14;L0CATE 21,1:PRINT "?<X":NEXT 
300 RETURN 

310 CLS :' ********* EJEMPLO 5 

320 PEN 1 : LOCATE 5,7:F'RINT STRINGÍ(2,CHR*(143)):LOCATE 4,8:F'RINT STRIN 
G$ (4 , CHR$ (143) ) : LOCATE 3,9:F'RINT STRING*(6,CHR*(143)):LOCATE 2,10:PRIN 
T STRINGÍ(8,CHRÍ(143)) 

330 FOR 1=7 TO 14:L0CATE 5,1 :PRINT CHR*<143) sCHR*(143):NEXT 
340 LOCATE 1,2:PEN 1 :PRINT " 128 
32 8 

*2 II 

350 LOCATE 1,17:F'RINT " 64 16 


360 FOR fp=0 TO 128 STFF' 16:0RIGIN 14+m , 175 :DRAW O , 128 ,2 :DRIGIN 14,175+ 
m:DRAW 128,0,2:NEXT 

370 OPJGIN 37,174 :DRAW O ,-25,3: ORIG IN 73,174:DRAW O ,-41 rORIGIN 105,174 
:DRAW O ,-56:ORIGIN 135,174: DRAW -10,-70 

380 ORIGIN 22,305:DRAW 10 ,60,3sORIGIN 55,305:DRAW 0,45:0RIGIM B7,305:D 
RAW 0,30:ORIGIN 119,305:DRAW 0,14 

390 ORIGIN 38,174: DRAW 0,-25:0RIGIN 7l,174:DRAW 3,-41:ORIGIN 100,174 :D 
RAW 6 ,-57 :ORIGIN 132,174:DRAW -8,-73 
400 RETURN 

410 '*********** EJEMPLO 6 

420 WINDOW #4,13,22,7,15:PRINT #4,"&X00011000&X00111100&X01111110&X111 
lili 1 &XOOQ 11000&X000110008< X 00011000?< X 00011000" 

430 PEN 3:1..OCATE 10,4:PRINT "NOTACION BINARIA HEXADECIMAL" 

440 WINDOW #3,33,35,7,15:PRINT #3," 24 60128255 24 24 24 .24" 

450 RETURN 

460 '**************** EJEMPLO 7 

470 CLS:PEN 1;PRINT:PRINT:PRINT " ESTE PROGRAMA EXPONDRA EN PANTALLA 
EL CARACTER RUE HAYAS CREADO " 

480 F’RTNT :PRINT " EN CASO DE INTRODUCIR L.OS DATOS EN BINARIO,NO 

HAS DE OLVIDARTE DE PONER < ?<X > DELANTE DE LAS OCHO CIFRAS 
EJ: &XI1100111" 

490 PRINT:PRTNT ;F'RINT " EN CASO DE ROMPERSE EL PROGRAMA ,SE DEBERA 

A UNA INTRODUCCION INCORRECTA DE ALGUN DATO: TECLEA < RLJIM > Y 

VUELVE A INTENTARLO CON CUIDADO" 
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500 

51 O 

52 O 
530 
540 
550 
1 > 

560 

570 

580 

IE i 
590 
1 a 

T- 
600 
¡nene 
6 :!. 0 
620 
630 
640 

650 

660 

670 

680 

690 


SYMBOL ASTER 
FOR v; — I TO 8 
F'R T MT : PR r NT 
iMEXT 

SYMBOL 231 „a 


•■30 


El valor- de 


; INRI .IT 


es 


: a ( •:• ) 


Í1 ) 5 a ü 2) ; a (3 5 , a 1 4) .ai 5 > a < a -¡ . a < 7 ) a (g } 


Cl. S;LOCATE 1 .6 sPRINT sPRINT sPRINT " ¡ESTE ES TU CARACTER 


; CHRíí23 


RET'MRN 

Cl S'sP'EN 3 sPRINT 
I. OCA TE 1 ,24 ;PEN 


;PRINT 


TI. USTRACIONES 
FCO ,..í .BLAZQUEZ 


GTS <c) -19R5-" ;l OCA 


PR J N I ! PR ¡.Ni s PR .INI i l-'EN t sPRTNT" Esta sección he sido ideada con 
+ t nal i dad de servir como complemento :i lustrativo a los concepto 
•® en la revista so expl i can 

i-r,.i !••.!! s PR 1 Ni 1 " Escoja en rada momento el ejemplo que en ella se 

idne , .. •• *' sPRINT 


POR 

IF 

j p 

IF 
T F 
IF 
T F 
T F 


= 1 TO 7 SPRINT 


INKEY (64) =0 TREN 
INKFY í 65)=0 THEN 
INKEY(57)=Ó THFN 
INKEY(56)=0 THEN 
INKEY (49) =0 TRIEN 
INKEY(48)=0 THEN 
INKEY (41 ) --O TMFN 


1 I" 
GOSIIB 
608U E< 
GOSI. IB 
GOSUB 
G08LIB 
3 OBI. IB 
GOSUB 


5 v ; " :i 
700 
710 
720 
730 
740 
750 
760 


Ejemplo":vsNEXT 


GOTO 620 


700 GOSI IR 40s GOTO 770 

71 0 G 0 SIJ B 1. t 0 : G Q "¡" f) 7 7 n 

72O B O«IIR 18¡') s G 0 T 0 77 0 

730 GílSl IR 1 80 ;GQ5UP 280 “GOTO 77Q 

740 GOSUB 31 OsGOTO 770 


750 GOSUB 310;GOSUB 4!OsGOTO 770 
760 GOSUB 460sGOTO 770 

770 PEN 3 sLOCATE 6,25 sPRINT " PULSA TECLA EM3 PARA MENU "" 
780 IF INKEY(38)=0 THEN GOTO 570 
790 GOTO 780 
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HECHIZO 


i o ■' * * * * # * * # * $ * % % % H E C H I 2 O 


2.0 ' 3|£ Feo - .7 „8). <9? nuez 

1985 - RTS (c) * 






30 ' # PARA CHEMA EL. ' 

TELENEGCO 1 1 ***** 






40 ' t Sí X¡ * t # t * t ü: ü< & ¡fc 1 t * * #•### ¡C >k K a### * 111 * # t 






5o CLEAP 

60 MODE 1 : T N!< 0,0 s BOI 
70 ;•< = !. O ; y» ] O s ij 1 ~ 1 0 
so ci s 

ROER 0 : INK 1,13:1NK 2,2 

1 :1NK 3 , 

A 




90 8 Y M Rn I ?5 5,255,60 

,56 ,24 ,24,16,16 

8,28,30,62,190,255 






100 SYMBOL 254,0,0,2: 







1 1 O SYMBOL 2553,126,2,254,1.28 ,255,1,127,64 
120 SY MBQL 252 ,32,16 ,8,4,8,16,32,64 
130 SYMBOL 251,129,255,90,176,195,219,126,23 
140 SYMBOL 250,126,219,255,195,90,90,126,231 
150 SY MBOl 24 <; ?,64,21,64,1 8 ,64,4i , 68,145 
160 SYMBOl 248 ,28,62,127,127,62,62,28,255 
170 S Y MBOL 247,0 ,8,28,8,8 ,8 ,8,0 




1.90 E 

3 Y MBOL ?• 

45 , 0 , 20 , 

54 










2U0 SYnBUL. 2 < 

4 4 , U , u ,'. > 

5 O . o 5 n , 

.), .¿.o.,,-. 









¿ 1 U u 

nJ i U /bu 



































































r 
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2-lO PRTWT; CHEÍfJ,22i sLOCATE 1 ,1L sPEN 1 sPRINT STRING* (40 ,CHR* (255) > sPEN 3; 

L. O CATE' 1 ,1 s PR J NT STR T NGÍ í 40 , CHR'T i ?49 5 ) s PEN 1 

240 LOCATE 3 ,21::PEN 1 sPRINT STRINGt <40 ,CHR* (254) ) 

250 LOCATE 3 ,21 s PEN 3 s fJR I NT STR ING$ i 40 ’ CHRT <249) ) 

260 FOR n*=t TO 21 :PFN Tí LOCATE 1 ,rt sPRIÑT CHRÍÍ253) ¡LOCATE 40,n SPRINT C 
HR$(253> sPEN 2sLOCATE 1. , n ; PR T NT CHE*(252) : LOCATE 40,n sPRINT CHE* (252) s 
NIÍXT 

270 FOR b 1=2.2. TO 24 sLOCATE 1 ,bsPEN 3 sPRINT STRING* (40 ,CHR* (249) 3 sPEN 2: 
LOCATE .1. , b s PR I NT STR ING* (40 , CHR* < 252) ) s NEXT : PEN O s LOCATE 1 ,25 s PR I NT CH 
R*(22),1sPEN 1sLOCATE 12,12 

.280 PEN 1 s LOCATE 4,23sPRINT » PUNTOS " ;CHE* (250) ; " s" ;p 

290 PEN 3 sLOCATE 24,23sPRINT " PUNTOS " sCHR*(251) ; " : "sn!. 

300 PEN 1 :LOCATE 17,25sPRINT "Feo.J.Bla*quez~ GIS fe)" 

310 PEN 2 si...OCATE x ,ysPRINT CHR*(250) sCALL &BD19 ¡LOCATE x ,y sCALL ?/BD19s 
PR T NT " 11 

320 PEN 3:LOCATE x 1 ,y 3 sPRINT CHR* (251 > sCALL. &BD1.9 sLOCATE x 1 ,y 1 sCALL &B 
DI 9sPRINT " " 

330 ÍF TMKEY(69)30 THEN u = y ~J 
340 TF INk'FY (71 ) =0 THEN y=y + l. 

350 IF INKFY(63)=0 THEN x=x-1 

3 6 O T F IN K E Y (■ 6 2) = O T H E N x •- x + 3 

370 T F INKE Y (13) s=0 THEN y 1 ~y 1 -1 

380 IF I NKF Y ( 15) =0 -THEN y 1 = y í +1 

390 ÍF TNKFY( /)-O THEN x1~x í1 
400 T F INKE Y (6) -O THEN x 1 =x 3 + 1. 

410 IF x<2 THEN x=2 
420 TF w3<? THEN x t-2 
430 IF x >39 THEN x»39 
440 IF x 11X39 THEN xl»39 
450 IF y<2 THFN y=2 
460 IF y 1<2 THEN y 1=2 
470 ÍF y>20 THEN y=20 
480 TF y 1>20 THEN y1=20 

490 IF NOT TEST( Ct6*(x-1) )",400-a6* y n=0 THEN GOSUB 550 

500 TF NOT TEST ( (1 6# < x 1 1 ) ) ,400“ (16*y 1 > ) =0 THEN GOSUB 560 

51.0 t=t + 1 ¡ IF t >25 THEN GOSUB 570 

520 ot-nlrkl a IF ot >40 THEN GOSUB 730 

530 TF n >49 OR p1>49 THEN GOTO 620 

540 GOTO 310 

550 LET p«p +1 * SOUNB 3,200,2,15 si .OCATE 16,23 sPEN 1 sPRINT p ; RE TUR N 
560 LEI p t=p1+1 sSOUNB 2 ,300,2,15:LOCATE 36,23sPEN 1sPRINT p1 sRETURN 

5 7 O S OIJ U D 3 ,2 5 O o , 2,13 
580 t~0 

590 LET j*=INT (36* (RND (1) ) ) 

600 LET g—INT (19*(RND (i) )) 

610 LOCATE 1 ,25 sPRINT CHR$<22> sLOCATE 2+j ,2+g sPFN l sPRINT CHR* (248) sLIO 
CATE 2+j ,2+g s PEN 3 sPRINT CHR*(247) sPEN Os LOCATE 1,25 sPRINT CHE* (22) .1 s 
RETURN 
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620 WINDOW #i,2,39,2,20sCLS #3 
630 Jl= p>pl THEN gnr|#250 
640 TF p>nt THEN gel=251 
650 JF p<pi THEN gnd=25.1 
660 IF p i p 1 THEN gd=250 

670 PRINT #3 :PRJNT #1. :PRTNT #1 sPEN #1 ,1sPRINT #3.," BRAVO ! . . " qC 

HE* (gr.ri) s" ’ HAS CONSEGUIDO ROMPE 

R EL HECHIZO... .. . TU APARIENC 

TA ESj ahora NORMAL. " 

680 PR I NT # 1. ; PR I NT # 1 : PR I NT #1 , " O YE. . . " ? OIR* < g d ) 

690 PR I NT #1 SPRINT #1 ,» ' SIGUE PROBANDO " 

700 PRINT #1 SPRINT #3 sPRTNT #1," PULSA <ENTER> PARA OTRA PARTIDA " 

7 'I O IF TIM K E Y i 1.8) = O T H E N G O T O 10 
720 GOTO 710 

730 SOUND 1 ,500,2,3 3 
740 dt=*0 

750 LET h—INT(36*(RND(1))) 

760 LEI u-INT(19*(RND (1))) 

770 l..OCATE 1 ,25 SPRINT CHR*<22) sLOCATE 2+h ,2+usPEN 2:PRINT CHR*(24é):L0 
CATE 2+h ,.2+u sPEN 3;PRINT CHR*(245) ¡LOCATE 2+h ,2+usPEN 1 SPRINT CHE*(244 
) :PEN Os» OCATE 1,25sPRINT CHR*(22) ,1sRETURN 
780 CLS 

790 LOCATE 1,25;PRINT "HE" 

ROO FOR m=í TO 32 
810 FOR n=0 TO 35 

8 2 O O RIGIN O , O s IF N O T T F S T (m , n) = O T H E N 6 O S L.I B 8 5 O 
830 NEXTsNFXT 

840 GOTO 870 
850 ' 

860 SOUND 1 ,400 ,2,34;LOCATE 1 0+ (m/1 .5) , 10- (n/2) sPEN 1. sPRINT CHR* (248) s 
LOCATE 10+ím/1 .5) ,10.(n/2) sPEN 2sPRINT CHR$(247) sRETURN 

8 7 O P E N 1 : L O C A T E 1,25: P RIN T " C I-I 1 11 

880 FOR m~1 TO 48 

890 FOR n=0 TO 15 

900 ORIGIN 0,0: TF NOT TEST (tn , n > --0 THEN GOSUB 920 
91 O NEX T:ME X TsGOTO 930 

920 ROUND 1 ,400,2,14 ;LOCATE 5+(m/,1 .5) ,18-(n/2) sPEN .1 sPRINT CHR*(248) sL 
OCATE 5+(m/3 .5),18-(n/2) sPEN 2sPRINT CHR4U247) sRETURN 
930 LOCATE 1,25:PRINT "ZO " 

940 FOR m=l TO 32 

950 FOR n~0 TO 15 

960 O RIGIN O,O sIF NOT TE S T(m,n)-O T H EN GOSUB 98O 

9 7 O N E X T : N E X T : G O T O 9 9 O 

980 SOUND 1 ,400,2,14sLOCATE 10+(m/1.5) ,26-(n/2) sPEN 1sPRINT CHE*(948): 
l OCATE 10+(m/1,5) ,26-(n/2) sPEN 2sPRINT CHR*(247) sRETURN 
990 LOCATE 1,25:PRINT " "sFOR k=l TO 5300:NEXT 

1 000 CLS s PR I NT CHE* (22) : LOCATE 3. , 1. : PEN 1 : PR I NT STRI IMG* (40 , CHE* (255) ) s P 
EN 3 sLOCATE 3,1 sPRINT STR ING* (40 , CHE* (249) ): PEN 1 : LOCATE 1,24: PEN 3. sPR 
INT STRING*(40,CHE* ( 254) ) :LOCATE 3 ,24 s PEN 3 s PRINT STRING*(40 , CHE*<249 3 
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1010 FOR n 1 TO 24 sPEN 1 :LOCATE 1 ,n sPRINT CHR$ (253) ¡LOCATE 40 ,n :PRINT 
CHR:f (253) i PEN 2 s LOCATE:" 1 , n s PRI NT CHRT i 252) : LOCATE 40 , n : PRI NT CHR* ( 
;NEXT :F'E'M O: LOCATE 1 ,25sPRINT CHR*<22) ,1 sPEN 1 : LOCATE 12,1.2 
1020 WINDOW #6,2,39,2,23;PEN #6,1 
1030 PRINT #6 SPRINT #6," 

1 040 PR J NT #6 i! PE I NT #0 , " 

1050 PRINT #6 ;PRINT #6," 


Cons f ?g u i r as rec ob rar t u aspe c fc o 

normal tras el HECHIZO ?" 
Para. e 11 o con s i gue 5O p tos antes 
que tu hermano de desgracia. 
MANDOS 


1 060 
51 ) 

1 ; 070 

I OSO 
1090 
1100 
1 110 

II 20 
11 30 
1 140 


LOCATE 


7,13; PEN 


4,1 


; PEN 
17sPEN 


I. no ATE 
LOCATE 

LOCATE 4,19sPEN 
LOCATE 
LOCATE 

PEN 1;LOCATE 
TE IIMKEY (58) 
GOTO 1130 


4,21sPEN 
7,23 sPEN 
1 

-O 


sPRINT CHRí(250) s LOCATE 30,13 sPEN 3 s PRINT CHR*( 


1 SPRINT 
1 SPRINT 
1 SPRINT 
. 1 . SPRINT 
3sPRINT 


LA'] . .Subir 


C 1 3 . . 

Subir“ 


II Z 3 .Bajar 


C03 . . 

Bajar" 


[ X 3 . . Izquierda 

C . 3 . „ 

Izquierda" 

re3 .Derecha 

II en t er II 

. .Derecha“ 


PULSA <E> PARA EMPEZAR 


25 SPRINT " 

Fco.J.E 

Uazquez 

THEM 

GOTO 22 

0 
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TEST 


10 '********************************* 

20 '**** ECO.J.BLAZQUEZ -GTS(c) ***** 

30 ' ¡k*#)k* TEST n; 1 ************** 

40 GOSUB 370 
50 SYMBOL. AFTER 90 

60 S Y MBGL 92,0,24,0,24,48,96,102,60 
70 SYMBOL 94,0,126,219,231,60,36,36,102 
80 SY MBGL 163,24,0,24,24,24,24,24,24 
90 CLSíGOSÜB 370 

100 I NK 0,1:BORDER 1 :1NK 1,13:1NK 2,15:1NK 3,0 
110 PAPER 2:P..S 

120 LO T NDOW #1,2,39,2,3: PAPER # 1 ,0 : PEN # 1 ,1 : CLS # 1 

130 PRINT #1," - TEST - Creaccinn de n 

Lievos caracteres" 

140 LOCATE 1,25¡PAPER 25PEN O:PRINT " FCO.J.BLAZQUEZ - GTS(c) - TES 

TÍ II 

150 WINnOW #2 ,2,30 ,5,24 ¡PAPER #2,3sF'EN #2,1 ¡CLS #2 
160 WINDOW #3,32,39,5,24; PAPER #3,1:PEN #3,0 : CLS #3 
170 FOR v=l TO 16 

180 PRI NT #3 : F'R J. NT #3 : PRI NT #3 , " ACI E'RTÜS " : F'R I NT #3 , " " act 

190 PRINT #3 SPRINT. #3,"PREGUNTA "¡PRINT #3," n s" ;v 

200 PR I NT #3 : F'R I NT #3 , " 1.SI " s PR I NT #3 s PR I NT #3, "2.NO " 

210 PRINT #3 sF'RTNT #3:PRINT #3 
220 READ p$,na,íf 

230 CLS #2 sPRINT #2 ;PRINT #2 :PRINT #2 :PRINT #2 , " "*p*;:INF'UT #2 , sre 
240 IF re >2 OR r- e <0 THEN 230 
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###ACIERTO 


*## ERROR 


A p a r e c e r a a I g 


una euadricu 1 a para -formar 
No 1 an solo hasta tpner pra. 


100 " 


'•¡"Tan so 


2 5 0 L E T r e — 1’ N T (i- - e ) 

260 JF re-na THEN ROS!.IB 290 
270 IF NO7' re=na THEN GOSUB 330 
■2SO NEXT íROTO 540 

290 CI S #2 : PR T l\|T #2 ; pR1 NT #2 ¡ PR i. MT #2 :PRINT #2, 1 ' 

:¡ 

300 act==act+1 

2 1 0 F 0 R m = l T0 2900 ? M El' X T : 0 L . S # 2 
320 RE'TURN 

330 CI..S 42 ; PR 7 NT #7 PR T NT #2 ; PR T NI #? ■ PRINT #"> '' 

" s " ’ 

340 F’R J NT #2 ;PRI NT *2, f i 
350 FOR m=t TO 2900 sNFXTsCl.B &2 
360 RlÍTüRW 

3 70 DA IA " Si tecleamos ; 

PRINT CHE*(?) 

fj en pan t a l la " , ¿ , " No . I .i ene val or de -función " 

3So DATA 11 \i~s necesario usar 
Jas nuevos caracteres",2," 
etica» " 

39o DATA " \Es correcto el comando s Symbol a-fter 

Jo tenemos del 0 al 255" 

DA • A Symool a-fter 230 ■' \Deja .1 jhres 6 r arar teres" i " 

Si ,pues el 250 esta incluido." 

4 J O DATA " \ Es obligatorio el uso de < Symbol a-fter >Solo si 

definimos un carácter menor de 240" 

420 DATA " \ Es obligatorio el uso de < Symbol V , t ," Si pues rieter 
mina el numero de carácter " 

43o DATA " El valor binario de linea al =00101000 \ Es rorreeto" 2 " 
Hemos olvidarlo anteponer ^X>“ . ’ 

440 1A " N -Los valores de al . .a8 pueden ir en binario y hexadecimal 

a le vez" , 1 ," Si. se puede siempre que no olvidemos poner &X en bin 
er i o " 

450 DATA " \Es correcto lo siguiente s? &X00001111=15( En hex.)" 1 "" 
4o0 DA I A "\E1 valor ' Hex ' de &X 111.10000 es 240" , .1 , 

4 f -o DA IA "\E1 valor 'Hex' de &X10O00001 es 129" 1 

4Bo DA 1A "\E1 valor 'Hex ' de ?<X 111000,01 es 100",, 7* 

49i.) DATA "\Ei val ur 'Hex' de &X00001 OOOes 10" ,2 

500 DATA "\E1 valor 'Hex' de ¥<X00011 OOOes 24" * 1 

510 DATA."\Es valida la expresión .... Symbol 40,255,256.1.1 O 1 1 " n 
No, pues ningún numero Hex, es mayor' de 255" ’ ’ ’' ’" ’ ’ 

320 DATA "\ Corresponden las cifras hex 0,126,219.231,60,36,36,10? 
ai carácter ",i, 

530 RETURN 
540 ÑODE 1 

550 J'NK 0 ,0 sBORDER Os JNK 1 ,26sPEN 1 ;PAPER O 
560 CLS 

3 70 PRINT SPRINT ¡¡PRINT " FINAl DE TEST " 

380 PRINT SPRINT " Has acertado " ;act ;" preguntas " 

590 L E T a c i * (a c t % 10 0) /16 

600 PRINT ¡PRINT " Eso significa el " ¡¡act ; 

610 PEM 2 SPRINT SPRINT sPRINT " PULSA TECLA CAI PARA OTRO TEST " 

620 JF INk'EY í69) =0 THEN 640 

630 GOTO 620 

640 CLS ¡¡.O EARsGOTO 40 
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LA CHARCA 


10 REM ******* LA CHARCA ****** 

20 REM * ANGEL GARCIA DELGADO * 

30 REM ******** G.T.S. ******** 

40 REM 
50 MODE O 

60 INK 0,0:INK i,26:INK 2,7:INK 3,18 

70 PAPER OrBORDER O 

80 ORIGIN 318,210 

90 FOR a=0 TO 2*PI STEP PI/70 

100 PLOT 0,0,2 

110 DRAW 300*CGS(a),150*SIN(a) 

120 DRALIR O, 30*SIN (a) , 3 
130 NEXT a 

140 PRINT CHR$(22>+CHR$(1)5 

150 LOCATE 7,12 

160 PRINT “LA CHARCA" 

170 PRINT CHR$(22>+CHR$<0 )i 
180 INK 2,7,0:INK 3,0,18 

190 FOR a=l TO 300:S0UND 1,a,1,15:NEXT a 
200 INK 2,18,7:INK 3,7,18 

210 FOR a=300 TO 1 STEP -2:S0UND l,a,l:SOUND 2,a*2,l:NEXT a 

220 INK 2,7!INK 3,18 

230 FOR a=l TO 500:NEXT a 

240 FOR a=0 TO 50:PRINT CHR$<7>:FOR b=l TO 50:NEXT b:NEXT a 
250 MODE 1 
260 GOTO 310 

270 PRINT TAB(20-LEN<a$)/2>:FOR a=l TO LEN(ai) 

280 b$=MIDÍ(a$,a,1):PRINT bS¡:IF bi<>" ” THEN PRINT CHRÍ<7); 
290 NEXT a 

300 PRINT:PRINT:FOR a=i TO 200:NEXT a:RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 Ai="<< LA CHARCA >>“:GOSUB 270 

330 PRINT:AÍ=“COMETE A LAS MOSCAS QUE SOBREVUELAN":GOSUB 270 

340 A*-"TU CHARCA, PERO TEN CUIDADO DE NO":GOSUB 270 

350 A$="CAERTE AL AGUA POR QUE SINO MORIRAS":GOSUB 270 

360 PRINT:Ai="CONTROLES":GOSUB 270 

370 Ai="CURSOR <. IZQUIERDA":GOSUB 270 

380 Aí”"CURSOR >. DERECHA”:GOSUB 270 

390 A$= “ SPACE. SALTO":GOSUB 270 

400 PRINT:PRINT:Ai="PULSA -S- PARA EMPEZAR":GOSUB 270 

410 IF INKEY(60)< >0 THEN 410 

420 GOSUB 780 

430 INK O,23:BORDER 23 

440 PAPER O 
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1,0:INK 2,lo:INK 3,18 








460 MODE 1 

470 WINDOW #1, 1,40,20,25.'PAPER #1,2:PEN#1,3 
480 WINDOW #2,1,40,1,2 
490 CLS#1 

500 S*=" deeeef deeeeeee-f deeeef ’*: PRINT#1, S*; 

510 P=0:V=3 

520 GOSUB 750 

530 X=19:Y=20:XB=X:YB=Y 

540 XM=2+INT <RND*16):YM=39 

550 ENT 1,40,-1,1 

560 ENT 2,40,-2,1 

570 IF S=0 THEN IF NOT INKEY(47) THEN SOUND 1,100,15,10,O,1:S=16 
580 IF S>0 AND S<9 THEN X=X+1 
590 IF S>8 THEN X=X-1 

600 IF S>0 AND NOT INKEY (8) THEN Y=Y-1:IF Y<1 THEN Y=1 

610 IF S>0 AND NOT INKEY(1) THEN Y=Y+1:IF Y>40 THEN Y=40 

620 YM=YM-1:IF YM<1 THEN LOCATE 1,XM:PRINT" ":YM=38:XM=4+INT(RND*14) 

630 LOCATE YM,XM:PRINT M c " 

640 LOCATE YB, XB: PRINT " " : LOCATE Y,X:IF S>0 THEN PRINT "b 11 
650 IF S<1 THEN PRINT"a" 

660 IF XM=X AND YM=Y THEN GOSUB 720 

670 YB=Y:XB=X 

680 S=S-l:lF S<0 THEN S=0 

690 IF X=19 THEN IF MID*<S*,Y,1>=" " THEN GOSUB 710 
700 GOTO 570 

710 SOUND 4,500,30,10,O,1,31:LOCATE yB,xB:PRINT"g" :V=V-1:GOSUB 750:S=0:Y=20:RETU 
RN 

720 SOUND 1,100,20,10,0,2¡L0CATE YM,XM:PRINT" " 

730 P=P+15:GOSUB 750 
740 ym=o:return 

750 LOCATE #2,3,1:PRINT#2,"PUNTOS: ";P:LOCATE #2,26,1:PRINT#2,"VIDAS: ";V 

760 IF V<1 THEN GOTO 870 

770 RETURN 

780 SYMBOL AFTER 97 

790 SYMBOL 97,0,24,60,90,126,255,90,195 
800 SYMBOL 98,153,189,90,126,255,189,90,195 
810 SYMBOL 99,195,165,153,126,219,255,165,129 
820 SYMBOL 100,255,91,54,11,5,0,0,0 
830 SYMBOL 101,255,251,237,85,171,0,0,0 
840 SYMBOL 102,255,218,108,208,160,0,0,0 
850 SYMBOL 103,34,0,136,1,32,10,128,18 
860 RETURN 

870 REM *** GAME OVER *** 

880 FOR A=1 TO 20:F0R B=100 TO 200 STEP A:SOUND 1,B,1,15,O,O,31:NEXT B:NEXT A 
890 INK 0,0:INK 1,26:INK 2,15,0:PAPER O:BORDER 0:PEN 1:MODE O 
900 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

910 PEN 1:LOCATE 4,12:PRINT"PUNTOS:"!USING "######";p 
920 PEN 3:INK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N)" 

930 FOR A=1 TO 50:A*=INKEY*:NEXT A 


940 PEN 1 










950 IF INKEY(60)=0 THEN RUN 250 








960 IF INKEY(46)=0 THEN CALL O 
970 GOTO 950 
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ATAQUEALOS DIQUES 









C. Postal_Población 


Para 

saber cómo 
hablar con los 
ordenadores 


El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de altQ nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador. 


Provincia 


Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica |con experimentosl 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N.° 8039185 

(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto. 08013 Barcelona 

TeI.: (93) 245 33 06 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 Y A LA ORDEN MINISTERIAL DE 5/2/1979 


Sí 


deseo recibir a la mayor 
brevedad posible información 
\§ sobre el Curso de: _ 


Nombre y apellidos. 


Domicilio. 


Edad 


CEAC 


GRATUITAMENTE 






























